home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / StringRequester.asc < prev    next >
Text File  |  1980-03-11  |  3KB  |  125 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Wind Open   
  13. '  -Wb Wind Title  
  14. '  -Wb Wind Base   
  15. '  -Wb Wind Rastport   
  16. '  -Wb Wind Close    
  17. '  -X Wind   
  18. '  -Y Wind   
  19. '  -Str Store  
  20. '  -Str Free   
  21. '  -Wb Gfx Mode    
  22. '  -Wb Gfx Ink     
  23. '  -Wb Gfx Text  
  24. '  -Wb Init Bool Gadget  
  25. '  -Wb Init Str Gadget   
  26. '  -Wb Bevel Gadget    
  27. '  -Wb Insert Gadget     
  28. '  -Wb Refresh Gadget    
  29. '  -Wb Remove Gadget   
  30. '  -Wb Free Bool Gadget    
  31. '  -Wb Free Str Gadget     
  32. '  -Get Msg    
  33. '  -Get Msg Iadr   
  34. '  -Wb Bevel Box     
  35. '  -Wb Locker
  36. '
  37. Amos To Back 
  38. Wb Locker 1
  39. '
  40. Wb Wind Open SCR To 164,56,300,66,2+4+8+$2000000
  41. W=Wb Wind Base : R=Wb Wind Rastport(W)
  42. TIT0=Str Store("IntuiExtend.Lib v1.0b")
  43. TIT1=Str Store("CIERP Philippe presente l'extention Intuition (Shareware) AMOS/AMOSPro")
  44. Wb Wind Title W To TIT0,TIT1
  45. '
  46. Wb Gfx Mode R,1 : Wb Gfx Ink R To 2,0
  47. Wb Gfx Text "Selectionnez un bouton S.V.P...",23,23 To R
  48. '
  49. Wb Bevel Box R To 1,2,11,13,285,28
  50. GADSTR$="Philippe"+String$(Chr$(0),42)
  51. UNDO$="Philippe"+String$(Chr$(0),42)
  52. '
  53. Wb Gfx Ink R To 1,0
  54. '
  55. BOUT1[R,10,48,88,2,1,"Ok"]
  56. BGAD0=Wb Init Bool Gadget(0,11,49,86,11,2) : Wb Bevel Gadget BGAD0
  57. Wb Insert Gadget W To BGAD0 : Wb Refresh Gadget W,BGAD0
  58. '
  59. BOUT1[R,105,48,88,2,1,"Refaire"]
  60. BGAD1=Wb Init Bool Gadget(1,106,49,86,11,2) : Wb Bevel Gadget BGAD1
  61. Wb Insert Gadget W To BGAD1 : Wb Refresh Gadget W,BGAD1
  62. '
  63. BOUT1[R,200,48,88,2,1,"Annuler"]
  64. BGAD2=Wb Init Bool Gadget(2,201,49,86,11,2) : Wb Bevel Gadget BGAD2
  65. Wb Insert Gadget W To BGAD2 : Wb Refresh Gadget W,BGAD2
  66. '
  67. BOUT[R,12,32,273,11,1,2,""]
  68. BOUT[R,11,31,275,13,2,1,""]
  69. '
  70. ST3=Wb Init Str Gadget(3,13,34,273,9,Varptr(GADSTR$),50,33,0)
  71. Wb Insert Gadget W To ST3 : Wb Refresh Gadget W,ST3
  72. '
  73. Do 
  74.    '
  75.    X=X Wind(W)
  76.    Y=Y Wind(W)
  77.    '
  78.    Z=Get Msg(W)
  79.    Z1=Get Msg Iadr
  80.    '
  81.    If Z1=BGAD0 : Exit : End If 
  82.    If Z1=BGAD1
  83.       Poke$ Varptr(GADSTR$),Peek$(Varptr(UNDO$),50)
  84.       Wb Refresh Gadget W,ST3
  85.    End If 
  86.    If Z1=BGAD2 or Z=$200
  87.       GADSTR$=""
  88.       Exit 
  89.    End If 
  90.    '
  91. Loop 
  92. '
  93. RR:
  94. Default 
  95. Print GADSTR$
  96. '
  97. Str Free TIT0
  98. Str Free TIT1
  99. Wb Locker 0
  100. Amos To Front 
  101. '
  102. Wb Remove Gadget W,BGAD0
  103. Wb Remove Gadget W,BGAD1
  104. Wb Remove Gadget W,BGAD2
  105. Wb Remove Gadget W,ST3
  106. Wb Free Bool Gadget BGAD0
  107. Wb Free Bool Gadget BGAD1
  108. Wb Free Bool Gadget BGAD2
  109. Wb Free Str Gadget ST3
  110. Wb Wind Close W
  111. Print : Print 
  112. Print "Pressez une touche pour terminer..."
  113. Wait Key 
  114. '
  115. Procedure BOUT[R,X,Y,W,H,C0,C1,T$]
  116.    X1=(X+44)-(Len(T$)*4)
  117.    Wb Bevel Box R To C0,C1,X,Y,X+W,Y+H
  118.    Wb Gfx Text T$,X1,Y+8 To R
  119. End Proc
  120. '
  121. Procedure BOUT1[R,X,Y,W,C0,C1,T$]
  122.    X1=(X+44)-(Len(T$)*4)
  123.    Wb Gfx Text T$,X1,Y+9 To R
  124. End Proc
  125.